home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / misc / BlitzBank229.lha / blitzbank / Install < prev    next >
Text File  |  1996-09-29  |  4KB  |  145 lines
  1.  
  2. (welcome)
  3.  
  4. (set PROGNAME "BlitzBank")
  5.  
  6. (working "recherche de la version de blitzbank...")
  7. (set version (getversion "blitzbank"))
  8. (set vers (/ version 65536))
  9. (set revis (- version (* vers 65536) ) )
  10.  
  11. (if (<> (getassign "blitzbank") "")
  12. (if (exists "blitzbank:blitzbank")
  13. ( (working "recherche de la version de BlitzBank\n déjà installée...")
  14.        (set vernum (getversion "blitzbank:blitzbank"))
  15.        (if (= vernum 0)
  16.          (
  17.            (set reponse (askbool
  18.             (prompt "Une version inférieure de Blitzbank\n est déjà installée.\n"
  19.              ("Souhaitez-vous installer la nouvelle version %ld.%ld\n à sa place ?" vers revis))
  20.             (choices "Oui" "Non")
  21.             (help "Si vous choisissez NON, on vous demandera un répertoire."))
  22.            )
  23.          )
  24.          ( (set ver (/ vernum 65536))
  25.            (set rev (- vernum (* ver 65536) ) )
  26.            (if (> version vernum)
  27.              ( (set reponse (askbool
  28.                 (prompt ("Blitzbank V%ld.%ld est déjà installée.\n" ver rev)
  29.                  ("Souhaitez-vous installer la nouvelle version %ld.%ld\n à sa place ?" vers revis))
  30.                 (choices "Oui" "Non")
  31.                 (help "Si vous choisissez NON, on vous demandera un répertoire."))
  32.                )
  33.              )
  34.            )
  35.            (if (< version vernum)
  36.              ((set reponse (askbool
  37.                (prompt ("Blitzbank V%ld.%ld est déjà installée.\n" ver rev)
  38.                 ("Souhaitez-vous installer cette ancienne version %ld.%ld\n à sa place ?" vers revis))
  39.                (choices "Oui" "Non")
  40.                (help "Si vous choisissez NON, on vous demandera un répertoire."))
  41.               )
  42.              )
  43.            )
  44.            (if (= version vernum)
  45.              ((set reponse (askbool
  46.                (prompt ("La même version de Blitzbank (V%ld.%ld)\n est déjà installée.\n" ver rev)
  47.                 "Souhaitez-vous la réinstaller\n dans le même répertoire ?")
  48.                (choices "Oui" "Non")
  49.                (help "Si vous choisissez NON, on vous demandera un répertoire."))
  50.               )
  51.              )
  52.            )
  53.          )
  54.        )
  55.      )
  56. )
  57. )
  58.  
  59. (if (not reponse) (set destination
  60.        (askdir
  61.          (prompt ("Dans quel répertoire Voulez-vous \ninstaller %s %ld.%ld ?" PROGNAME vers revis) )
  62.          (help
  63.            "Tous les fichiers de la disquette seront"
  64.            " copiés directement dans le répertoire choisi."
  65.            " Aucun répertoire supplémentaire ne sera créé."
  66.            " Vous devez choisir un répertoire différent de"
  67.            " celui où se trouve le programme pour le moment."
  68.          )
  69.          (default "dh0:")
  70.        )
  71.      )
  72.      ( set destination "BlitzBank:" )
  73. )
  74.  
  75. (if (= (getassign (substr destination 0 (- (strlen destination) 1))) "")
  76.   (set @default-dest destination)
  77.   (set @default-dest (getassign (substr destination 0 (- (strlen destination) 1))))
  78. )
  79.  
  80. ; Install main program files
  81.  
  82. (set path.source (pathonly @icon) )
  83.  
  84. (copyfiles
  85.    (prompt ("Copie Des Fichiers vers %s" @default-dest))
  86.    (help   "")
  87.    (choices
  88.    "datas"
  89.    "Doc"
  90.    "Doc.info"
  91.    "BlitzBank"
  92.    "BlitzBank.im"
  93.    "BlitzBank.info"
  94.    "Exemple.cpt"
  95.    "Exemple.cpt.info"
  96.    (if (<> destination "BlitzBank:") "BlitzBank.prefs" "Exemple.cpt.info"))
  97.    (source path.source)
  98.    (dest @default-dest)
  99. )
  100.  
  101. (copyfiles
  102.    (prompt ("Copie Des Fichiers vers \"locale:catalogs/%s\"" @language))
  103.    (help   "")
  104.    (choices ("catalogs/%s" @language))
  105.    (source path.source)
  106.    (dest "locale:catalogs")
  107. )
  108.  
  109. (complete 80)
  110.  
  111. (copyfiles
  112.    (prompt "Copie Des Fonts")
  113.    (help ""
  114.    )
  115.    (choices "BlitzBank" "BlitzBank.font" )
  116.    (source "fonts")
  117.    (dest "FONTS:")
  118.    (infos)
  119.    (optional nofail)
  120. )
  121.  
  122. (complete 90)
  123.  
  124. (if (<> destination "BlitzBank:")
  125.  (startup
  126.    PROGNAME
  127.    (prompt "Souhaitez-Vous que j'ajoute les commandes "
  128.            "nécessaires à votre User-Startup ?"
  129.    )
  130.    (help
  131.       "Sélectionnez le bouton PROCEED si vous autorisez l'écriture"
  132.       " sur votre User-Startup ."
  133.    )
  134.    (command ("assign blitzbank: \"%s\"" @default-dest))
  135.  )
  136. )
  137.  
  138. (makeassign "BlitzBank" @default-dest)
  139.  
  140. (complete 100)
  141.  
  142. (exit
  143.    ("BlitzBank est installé dans le répertoire %s." @default-dest)
  144. )
  145.